10 POKE53281,0:POKE53280,11:PRINTCHR$(14);CHR$(8);
15 PRINT"[147]       [158]     [204][207][193][196][211][212][193][210] [208]RESENTS"
20 PRINT"       [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
30 PRINT"       [154][176][192][174][176][178][174][176][192][174]  [176][178][174][176][192][174][176][178][174][176][178][174][176] [174]"
40 PRINT"       [173][192][174] [221] [171][178][189]   [221] [221] [221][221][221][221][221][221][221][173][178][189]"
50 PRINT"       [173][192][189][173][177][189][173][173][189]   [177] [173][192][189][173] [189][173] [189] [177]"
60 PRINT"       [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
70 PRINT"         [154][193] [199]AME OF [207]LD [208]ATIENCE"
80 PRINT"         [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
90 PRINT"            1] [208]LAY"
100 PRINT"            2] [201]NSTRUCTIONS"
110 PRINT"            3] [197]XIT [208]ROGRAM"
120 PRINT"    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
130 PRINT"    [150]     BY [194]ARBARA [200]. [211]CHULAK      "
140 PRINT"    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
150 GETK$:IFK$=""THEN150
160 K=VAL(K$):IFK<1ORK>3THEN150
170 IFK=3THENGOTO 20000
180 IFK=2THENGOSUB1470:RUN
190 PRINT"[147]               [211]HUFFLING..."
200 FORI=14TO15:POKE781,I:SYS59903:NEXT
210 DIMT(52),A(52),S(52),W(5,52),WC(5)
220 X=RND(-TI):JS=56320:S=54272
230 FORI=0TO24:POKES+I,0:NEXT
240 FORI=1TO4:A(I)=193:NEXT
250 FORI=5TO8:A(I)=202:NEXT
260 FORI=9TO12:A(I)=209:NEXT
270 FORI=13TO16:A(I)=203:NEXT
280 FORI=17TO20:A(I)=176:NEXT
290 FORI=21TO24:A(I)=178:NEXT
300 FORI=25TO28:A(I)=179:NEXT
310 FORI=29TO32:A(I)=180:NEXT
320 FORI=33TO36:A(I)=181:NEXT
330 FORI=37TO40:A(I)=182:NEXT
340 FORI=41TO44:A(I)=183:NEXT
350 FORI=45TO48:A(I)=184:NEXT
360 FORI=49TO52:A(I)=185:NEXT
370 S(0)=160:FORI=1TO5:W(I,0)=160:NEXT
380 FORI=1TO5:WC(I)=0:NEXT
390 FORI=1TO52:T(I)=0:NEXT
400 FORI=1TO52
410 R=INT(RND(1)*52)+1
420 IFT(R)=1THEN410
430 S(I)=A(R):T(R)=1
440 NEXT
450 :
460 A$="[156][176][192][192][192][174]":B$="[156][221]   [146][156][221]":C$="[156][173][192][192][192][189]"
470 PRINT"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
480 PRINT"[154]               [211]IR [212]OMMY                ";
490 PRINT"[146][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
500 PRINTTAB(10):FORI=1TO4:PRINTA$;:NEXT
510 PRINT:PRINTTAB(10):FORI=1TO4:PRINTB$;:NEXT
520 PRINT:PRINTTAB(10):FORI=1TO4:PRINTB$;:NEXT
530 PRINT:PRINTTAB(10):FORI=1TO4:PRINTB$;:NEXT
540 PRINT:PRINTTAB(10):FORI=1TO4:PRINTC$;:NEXT
550 PRINT:PRINTTAB(5):FORI=1TO5:PRINTA$;:NEXT
560 PRINT:PRINTTAB(5):FORI=1TO5:PRINTB$;:NEXT
570 PRINT:PRINTTAB(5):FORI=1TO5:PRINTB$;:NEXT
580 PRINT:PRINTTAB(5):FORI=1TO5:PRINTB$;:NEXT
590 PRINT:PRINTTAB(5):FORI=1TO5:PRINTC$;:NEXT
600 PRINT:PRINTTAB(7)"S    W    W    W    W"
610 PRINT""TAB(6)"[159]   "
620 PRINTTAB(6)"   "
630 PRINTTAB(6)"   "
640 PRINT""TAB(30)"[176][192][192][192][192][192][192][174]"
650 PRINTTAB(30)"[221][209]=[209]UIT[146][221]"
660 PRINTTAB(30)"[173][192][192][192][192][192][192][189]"
670 :
680 X=1551:CD=52:POKEX,S(CD):POKEX+S,3:P=1
690 M=0
700 POKEX,PEEK(X)-128
710 POKEX,PEEK(X)+128
720 GETK$
730 IFK$="[145]"THENGOSUB1250
740 IFK$=""THENGOSUB1270
750 IFK$="[157]"THENGOSUB1290
760 IFK$=""THENGOSUB1310
770 IFK$=CHR$(13)THEN820
780 IFK$="Q"THENRUN
790 POKEX,PEEK(X)-128:FORT=1TO25:NEXT
800 GOTO710
810 :
820 GOSUB1340:M=M+1:IFM=2THEN870
830 IFPEEK(X)=160THENGOSUB1390:GOTO690
840 IFP<1ANDP>5THENGOSUB1390:GOTO690
850 B=PEEK(X):C=X:PI=P:GOTO700
860 :
870 IFP=1THENGOSUB1390:GOTO690
880 IFPI<>1THEN950
890 IFP<>2ANDP<>3ANDP<>4ANDP<>5THEN950
900 CD=CD-1:POKE1551,S(CD)
910 WC(P)=WC(P)+1:W(P,WC(P))=B
920 POKE1551+(P-1)*5,B
930 GOTO1110
940 :
950 IFB=193ANDPEEK(X)<>160THENGOSUB1390:GOTO690
960 IFB=178ANDPEEK(X)<>193THENGOSUB1390:GOTO690
970 IFB=179ANDPEEK(X)<>178THENGOSUB1390:GOTO690
980 IFB=180ANDPEEK(X)<>179THENGOSUB1390:GOTO690
990 IFB=181ANDPEEK(X)<>180THENGOSUB1390:GOTO690
1000 IFB=182ANDPEEK(X)<>181THENGOSUB1390:GOTO690
1010 IFB=183ANDPEEK(X)<>182THENGOSUB1390:GOTO690
1020 IFB=184ANDPEEK(X)<>183THENGOSUB1390:GOTO690
1030 IFB=185ANDPEEK(X)<>184THENGOSUB1390:GOTO690
1040 IFB=176ANDPEEK(X)<>185THENGOSUB1390:GOTO690
1050 IFB=202ANDPEEK(X)<>176THENGOSUB1390:GOTO690
1060 IFB=209ANDPEEK(X)<>202THENGOSUB1390:GOTO690
1070 IFB=203ANDPEEK(X)<>209THENGOSUB1390:GOTO690
1080 IFPI=1THENCD=CD-1:POKE1551,S(CD)
1090 IFPI<>1THENWC(PI)=WC(PI)-1:POKE1551+(PI-1)*5,W(PI,WC(PI))
1100 POKEX,B
1110 IFPEEK(1551)+PEEK(1556)+PEEK(1561)+PEEK(1566)+PEEK(1571)=160*5THEN1140
1120 GOTO690
1130 :
1140 W$="[158][150][156][158]"
1150 FORI=1TO10:GOSUB1340
1160 PRINT"";LEFT$(W$,I);"               [199]AME [215]ON!                "
1170 FORT=1TO25:NEXT
1180 NEXT:FORT=1TO1000:NEXT
1190 PRINT"[154]       [208]RESS [156][210][197][212][213][210][206][154] TO PLAY AGAIN       "
1200 GETK$:IFK$=""THEN1200
1210 IFK$=CHR$(13)THENRUN
1220 PRINT"[147]":END
1230 :
1240 :
1250 X=X-200:P=P-5:IFPEEK(X)=32THENX=X+200:P=P+5
1260 RETURN
1270 X=X+200:P=P+5:IFPEEK(X)=32THENX=X-200:P=P-5
1280 RETURN
1290 X=X-5:P=P-1:IFPEEK(X)=32THENX=X+5:P=P+1
1300 RETURN
1310 X=X+5:P=P+1:IFPEEK(X)=32THENX=X-5:P=P-1
1320 RETURN
1330 :
1340 POKES+24,15:POKES+5,9
1350 POKES+4,17:POKES+1,28:POKES,214
1360 FORT=1TO75:NEXT
1370 POKES+4,16:RETURN
1380 :
1390 PRINT"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1400 PRINT"  [221][201]LLEGAL [205]OVE![146][221]"
1410 PRINT"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1420 FORT=1TO1000:NEXT
1430 PRINT"                          "
1440 FORI=1TO2:PRINT"                  ":NEXT
1450 RETURN
1460 :
1470 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
1480 PRINT"[221][159]      [201]NSTRUCTIONS FOR [211]IR [212]OMMY      [146][221]";
1490 PRINT"[171]``````````````````````````````````````[179]";
1500 PRINT"}[156]                                      }";
1510 PRINT"}[156]   [153]sIR tOMMY OR oLD pATIENCE IS A     }";
1520 PRINT"[221] ONE-DECK SOLITAIRE GAME.  [212]HE OBJECT [221]";
1530 PRINT"[221] OF THE GAME IS TO MOVE THE FOUR ACES [221]";
1540 PRINT"[221] TO THE FOUR FOUNDATIONS AND THEN TO  [221]";
1550 PRINT"[221] BUILD THEM UP IN SEQUENCE REGARDLESS [221]";
1560 PRINT"[221] OF SUIT.                             [221]";
1570 PRINT"[221]                                      [221]";
1580 PRINT"[221]   [195]ARDS FROM THE STOCK PILE ([153]S)      [221]";
1590 PRINT"[221] SHOULD BE PLAYED TO A FOUNDATION IF  [221]";
1600 PRINT"[221] AT ALL POSSIBLE OR TO ANY OF THE     [221]";
1610 PRINT"[221] FOUR WASTE PILES ([153]W).  [212]HE TOP CARD  [221]";
1620 PRINT"[221] OF EACH WASTE PILE MAY BE PLAYED TO  [221]";
1630 PRINT"[221] ANY FOUNDATION AT ANY TIME BUT MAY   [221]";
1640 PRINT"[221] NOT BE MOVED TO ANOTHER WASTE PILE.  [221]";
1650 PRINT"[221] [212]HE GAME IS WON IF ALL CARDS CAN BE  [221]";
1660 PRINT"[221] PLACED ON THE FOUNDATIONS.           [221]";
1670 PRINT"[221]                                      [221]";
1680 PRINT"[221]                                      [221]";
1690 PRINT"[171]``````````````````````````````````````[179]";
1700 PRINT"}[156]             pRESS return             [146]}";
1710 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1720 POKE2023,125:POKE56295,6
1730 GETK$:IFK$<>CHR$(13)THEN1730
1740 PRINT"[221]   [213]SE THE [153][195][213][210][211][207][210] KEYS TO MOVE THE    [221]";
1750 PRINT"[221] FLASHING CURSOR THROUGH THE CARD     [221]";
1760 PRINT"[221] LAYOUT AND PRESS [153][210][197][212][213][210][206] TO SELECT    [221]";
1770 PRINT"[221] THE CARD YOU WISH TO MOVE.  [212]HEN     [221]";
1780 PRINT"[221] MOVE THE CURSOR TO THE PLACE YOU     [221]";
1790 PRINT"[221] WANT THAT CARD TO GO AND PRESS       [221]";
1800 PRINT"[221] [153][210][197][212][213][210][206] AGAIN.                        [221]";
1810 PRINT"[221]                                      [221]";
1820 PRINT"[221]   [212]HE COMPUTER WILL NOTIFY YOU OF    [221]";
1830 PRINT"[221] ANY ILLEGAL MOVES.                   [221]";
1840 PRINT"[221]                                      [221]";
1850 PRINT"[221]   [208]RESS '[153][209]' AT ANY TIME TO QUIT OR   [221]";
1860 PRINT"[221] IF YOU HAVE NO MORE MOVES.           [221]";
1870 PRINT"[221]                                      [221]";
1880 PRINT"[221]   [195]HANCES OF WINNING ARE 1 IN 5.     [221]";
1890 PRINT"[221]                                      [221]";
1900 GETK$:IFK$<>CHR$(13)THEN1900
1910 RETURN
1920 :
10000 OPEN15,8,15,"S0:SIR TOMMY.2":CLOSE15:SAVE"0:SIR TOMMY.2",8
20000 PRINT"[209]UIT : [193]RE YOU SURE? ([217]/[206])"
20001 GETA$:IFA$=""THEN20001
20002 IFA$="[217]"ORA$="Y"THEN20010
20003 IFA$="[206]"ORA$="N"THEN 10
20005 LOAD"HELLO CONNECT",8,1
20010 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
20011 IFER<>63 THEN PRINT"[147]":END
20015 LOAD"HELLO CONNECT",8,1